home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 154 / 154.d81 / b.chess quarto (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 10 poke56,48:poke55,0:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 22 poke53281,0:poke53280,0:print"[147]"
  4. 24 ifpeek(1021)=250then40
  5. 26 poke1021,250
  6. 28 gosub60000
  7. 30 sys57812"chess font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  8. 40 sys57812"chess sprites",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  9. 50 print"[147]";:poke53280,0
  10. 60 poke53281,10:poke53272,31
  11. 70 print"      [176][192][192][192][174] [174]   [176] [176][192][192][192][174] [176][192][192][192][174] [176][192][192][192][174]
  12. 71 [153]"      (NULL)     -tantantan< -tantan   /tantantan^ /tantantan^
  13. 72 print"[144]      [173][192][192][192][189] [189]   [173] [173][192][192][192][189] [173][192][192][192][189] [173][192][192][192][189]
  14. 73 [153]
  15. 74 [153]"   ortantantan^ ^   or ortantantan^ ortantantan^ ortan=tan^ ortantantan^
  16. 75 print"   [221]   [221] [221]   [221] [171][192][192][192][179] [171][192][178][192][189]   [221]   [221]   [221]
  17. 76 [153]"stop   /tantantan(NULL) /tantantanexp exp   / exp /tantantanexp >   /tantantanexp
  18. 80 print"[144]     [198]our [208]uzzles by [195]arl [194]evington
  19. 100 [151]214,12:[153]:[153]"stop          (1stop) lenorner the (NULL)ing
  20. 110 print"          (2[144]) [203]night's [209]uadrille
  21. 120 [153]"          (3stop) (NULL)ix (NULL)awns
  22. 130 print"          (4[144]) [203]nights' [197]xchange
  23. 140 [153]"          (5stop) (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  24. 200 poke198,0
  25. 210 geta$
  26. 220 ifa$<"1"ora$>"5"then210
  27. 230 onval(a$)goto240,250,260,270,40000
  28. 240 f$="king puzzle":goto280
  29. 250 f$="knights quad":goto280
  30. 260 f$="six pawns":goto280
  31. 270 f$="knights ex"
  32. 280 print"[147]":poke53281,0:poke214,20:print
  33. 282 print"          [204]oading, please wait.
  34. 290 [153]"stopload"[199](34)f$[199](34)",",dv
  35. 292 [153]"run"
  36. 294 [151]631,13:[151]632,13:[151]198,2:[128]
  37. 10000 d[178][194](186):n$[178]"b.chess quarto":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  38. 40000 [153]"load":[151]53281,0:[151]53280,0
  39. 40002 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  40. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  41. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  42. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  43. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  44. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  45. 40060 [130]:[142]
  46. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  47. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  48. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  49. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  50. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  51. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  52. 60030 z$(0)[178]"len left$ val (NULL) (NULL)   (NULL) (NULL) atn (NULL) (NULL) (NULL)
  53. 60040 z$(2)="by [195]arl [194]evington
  54. 60050 z$(4)[178]"(len) 1997 by mid$ & asc (NULL)ublishing, right$nc."
  55. 60060 z$(6)[178]"(NULL)his program is not shareware
  56. 60070 z$(7)="or in the public domain."
  57. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  58. 60090 [151]214,12:[153]
  59. 60092 [129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]
  60. 60094 tq[178]0:[151]53370,0
  61. 60096 tq[178]tq[170]1:[161]a$:[139]a$[178]""[175]tq[179]200[167]60096
  62. 60098 [151]53371,0:[142]
  63.